home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / dbase / kf2ex.lha / KingFisher-Distribution / Install-KingFisher < prev    next >
Text File  |  1996-04-25  |  17KB  |  445 lines
  1. ; Installer Script for KingFisher Release 2
  2. ; Copyright © 1994,1995,1996 Udo Schuermann
  3. ; All rights reserved
  4. ; $VER: Install-KingFisher 2.23 (25.4.96)
  5. ;
  6. ;
  7. ; Installer and Installer project icon
  8. ; (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  9. ; Reproduced and distributed under license from Commodore.
  10. ; 
  11. ; INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  12. ; NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  13. ; OR RESPONSIBILITY IS ASSUMED.
  14.  
  15.  
  16. ; set language=national language
  17. (procedure install-language (
  18.   (set catDest ("KFDEST:Catalogs/%s" language))
  19.   (if (not (exists catDest))
  20.     (makedir catDest (safe)))
  21.   (set src (tackon filepath ("Catalogs/%s/KingFisher.catalog" language)))
  22.   (if (not (exists src))
  23.     (set src ("%s.gz" src)))
  24.   (copyfiles (source src) (dest catDest))
  25.   (if (= (".gz" (substr src (- (strlen src) 3))))
  26.      (run ("stack 50000\nram:gunzip >NIL: <NIL: -r \"%s\"" (tackon catDest "KingFisher.catalog.gz"))))
  27.   (set copied (+ copied (getsize (tackon catDest "KingFisher.catalog"))))
  28.   (if (> copied total) (set total copied))
  29.   (complete (/ (* copied 100) total))
  30. ))
  31.  
  32. ; call w/in foreach loop:
  33. ; always:overwrite?; workinfo=general description; @each-name=name
  34. (procedure condcopy (
  35.   (set cond-copied 0)
  36.   (set doit 1)
  37.   (set fname (tackon "KFDEST:" @each-name))
  38.   (if (= always 0)
  39.     (if (exists fname)
  40.        (set doit 0)))
  41.   (if doit (
  42.     (working ("\nInstalling KingFisher Release 2\n\n%s\n\n%s" workinfo @each-name))
  43.     (copyfiles (source (tackon filepath @each-name)) (dest "KFDEST:"))
  44.     (if (= (".gz" (substr @each-name (- (strlen @each-name) 3)))) (
  45.        (set fname (substr @each-name 0 (- (strlen @each-name) 3)))
  46.        (working ("\nInstalling KingFisher Release 2\n\n%s\n\n%s" workinfo fname))
  47.        (run ("stack 50000\nram:gunzip >NIL: <NIL: -f \"%s\"" (tackon "KFDEST:" @each-name)))))
  48.     (set cond-copied 1)))
  49.   (set copied (+ copied (getsize (tackon "KFDEST:" fname))))
  50.   (if (> copied total) (set total copied))
  51.   (complete (/ (* copied 100) total))
  52. ))
  53.  
  54. ; view only once; from current 'filepath'
  55. (procedure viewreadme (
  56.   (if (= ViewInfo 1) (
  57.     (if (> (run ("run SYS:Utilities/MultiView %sReadme" filepath)) 0)
  58.     (if (> (run ("run SYS:Utilities/AmigaGuide %sReadme" filepath)) 0)
  59.       (run ("run more %sReadme" filepath))))))
  60.   (set ViewInfo 0)
  61. ))
  62.  
  63. ; Main Entry Point
  64. (set dosver (/ (getversion "dos.library" (resident)) 65536))
  65. (set usr @user-level)
  66. (user 1)
  67. (if (< dosver 37)
  68.   (message
  69.     "KingFisher Release 2 requires at least Kickstart 2.04 (V37) but your "
  70.     "system's Kickstart (ROM software) is too old to support KingFisher!\n\n"
  71.     "It is suggested that you abort the installation and upgrade your "
  72.     "system. KingFisher Release 2 will not function on your computer until "
  73.     "you perform the necessary upgrade."))
  74.  
  75. (set parts 0)
  76. (set defopts 0)
  77. (if (or (exists "KingFisher") (exists "KingFisher.gz"))
  78.   (set defopts (bitor defopts %00001011)))
  79. (if (exists "Catalogs")
  80.   (set defopts (bitor defopts %00000100)))
  81. (if (or (exists "1000Fish.kfdb") (exists "1000Fish.kfdb.gz"))
  82.   (set defopts (bitor defopts %00010000)))
  83. (if (or (exists "Example1.format") (exists "Example1.format.gz"))
  84.   (set defopts (bitor defopts %00100000)))
  85. (foreach "" "gad.#?.image(%|.gz)"
  86.   (set defopts (bitor defopts %01000000)))
  87. (if (exists "Developer")
  88.   (set defopts (bitor defopts %10000000)))
  89.  
  90. (set opts
  91.   (askoptions
  92.     (help (cat
  93.     "Contents:\n"
  94.     " 1) Available archives on Aminet and elsewhere\n"
  95.     " 2) Details on installable components\n\n"
  96.     "«1»\n"
  97.     "KingFisher Release 2 is shipped in as many as three (3) separate archives. All desired "
  98.     "archives should be extracted before installation is begun:\n\n"
  99.     "KingFisher223.lha -- All necessary files for KingFisher Release 2 to function, "
  100.     "except for a database. This file is usually the only one that you need to upgrade if a new "
  101.     "version of KingFisher is released. The "223" in the name refers to KingFisher "
  102.     "Release 2 version 23 (or KingFisher 2.23).\n\n"
  103.     "KingFisher2db.lha -- A complete database of all 1000+ Fish Disks. You rarely, "
  104.     "if ever, need to download and install this file twice. The installer will not overwrite an "
  105.     "already installed database, regardless if the database is available or not.\n\n"
  106.     "KingFisher2ex.lha -- Miscellaneous files for KingFisher, including the "
  107.     "KingFisher Developer Kit, button images, ARexx example files, search and custom format "
  108.     "example files, etc. This file is occasionally updated to reflect changes and additions "
  109.     "(especially to the server software, and thus, to the Developer Kit), but this file is, in "
  110.     "general, fairly static.\n\n"
  111.     "«2»\n"
  112.     "Depending on what you have available on disk or in the current directory, you may choose "
  113.     "to install any or all of the following components:\n\n"
  114.     "KingFisher Release 2 -- Except for a database, all you need to run KingFisher.\n\n"
  115.     "Online Documentation -- AmigaGuide® formatted hypertext, designed especially for KS3.x or "
  116.     "later versions of the operating system.\n\n"
  117.     "Language Catalogs -- Operate KingFisher in a language other than English.\n\n"
  118.     "RexxFisher -- Access KingFisher's databases from any program with the help of this ARexx "
  119.     "interface to the server.\n\n"
  120.     "Miscellaneous Files -- Search results and alternate display / print / export format files.\n\n"
  121.     "Button Images -- Example images to replace some or all of KingFisher's 28 interface buttons.\n\n"
  122.     "Developer Kit -- Source code and examples to get you started using the KingFisher Database "
  123.     "Server API in your own projects."))
  124.     (default defopts)
  125.     (prompt (cat
  126.     "The following portions are available for installation. Items not "
  127.     "initially checked are unavailable in this distribution. Press HELP "
  128.     "for additional information."))
  129.     (choices
  130.     "KingFisher Release 2 . .  (~210K)"
  131.     "Online Documentation . .  (~255K)"
  132.     "Language Catalogs  . . (each ~8K)"
  133.     "RexxFisher + Examples  . . (~42K)"
  134.     "1000+ Fish Database  . . (~2200K)"
  135.     "Miscellaneous files  . .  (~100K)"
  136.         "Button images  . . . . . . (~15K)"
  137.     "Developer Kit  . . . . .  (~330K)"
  138.     )))
  139.  
  140. (if (and (or (in opts 0) (in opts 1) (in opts 3)) (not (or (exists "KingFisher") (exists "KingFisher.gz")))) (
  141.   (set opts (bitxor opts %1011))
  142.   (message
  143.     "The KingFisher / KFServer / RexxFisher software is not available in this distribution.\n\nIf "
  144.     "you downloaded the distribution from a BBS or Aminet, you need to also download the file "
  145.     "'KingFisher223.lha'.")))
  146.  
  147. (if (and (in opts 2) (not (exists "Catalogs"))) (
  148.   (set opts (bitxor opts %100))
  149.   (message
  150.     "No language catalogs are available in this distribution.\n\nIf you downloaded the distribution "
  151.     "from a BBS or Aminet, you also need to download the file 'KingFisher2.lha'.")))
  152.  
  153. (if (and (in opts 4) (not (or (exists "1000Fish.kfdb") (exists "1000Fish.kfdb.gz")))) (
  154.   (set opts (bitxor opts %10000))
  155.   (message
  156.     "The '1000 Fish Database' is not available in this distribution.\n\nIf you downloaded the "
  157.     "distribution from a BBS or Aminet, you also need to download the file 'KingFisher2db.lha'.")))
  158.  
  159. (if (and (in opts 5) (not (or (exists "Example1.format") (exists "Example1.format.gz")))) (
  160.   (set opts (bitxor opts %100000))
  161.   (message
  162.     "The miscellaneous example files and button images are not part of this distribution.\n\nIf "
  163.     "you downloaded the distribution from a BBS or Aminet, you also need to download the file "
  164.     "'KingFisher2ex.lha'.")))
  165.  
  166. (set foo 0)
  167. (foreach "" "gad.#?.image(%|.gz)"
  168.   (set foo 1))
  169. (if (and (in opts 6) (= foo 0)) (
  170.   (set opts (bitxor opts %1000000))
  171.   (message
  172.     "Button images to demonstrate the replacement of KingFisher's own buttons are not included "
  173.     "in this distribution.\n\nIf you downloaded the distribution from a BBS or Aminet, you also "
  174.     "need to download the file 'KingFisher2ex.lha'.")))
  175.  
  176. (if (and (in opts 7) (not (exists "Developer"))) (
  177.   (set opts (bitxor opts %10000000))
  178.   (message
  179.     "The Developer Kit is not available in this distribution.\n\nYou need to either download "
  180.     "the file 'KingFisher2ex.lha' or request the developer kit from the author, either as "
  181.     "part of a paid upgrade on disk or free via email.\n\nPlease see the doocumentation for "
  182.     "ordering information!")))
  183.  
  184. (if (= opts 0) (
  185.   (complete 100)
  186.   (message "Looks like the Installer has nothing to do...")
  187.   (exit)))
  188.  
  189. (user usr)
  190.  
  191. (if (in opts 1)
  192.   (if (< dosver 39)
  193.      (set WrapIt
  194.        (askbool
  195.       (prompt (cat
  196.         "»»---> ATTENTION - READ THIS! <---««\n\n"
  197.         "The KingFisher2.guide documentation that ships with "
  198.         "KingFisher Release 2 is formatted with long lines to "
  199.         "provide Kickstart 3.x users with more readable, and "
  200.         "better formatted documentation.\n"
  201.         "THIS FORMAT CAUSES SERIOUS TROUBLE for AmigaGuide "
  202.         "under Kickstart 2.x wherefore a special 'WrapGuide' "
  203.         "tool is supplied to fix the .guide file for use with "
  204.         ("your installed version of AmigaDOS V%ld\n\n" dosver)
  205.         "You are STRONGLY URGED to have Installer apply "
  206.         "the WrapGuide operation to the documentation!!"))
  207.       (choices "WRAPGUIDE" "Skip it")
  208.       (default "WRAPGUIDE")
  209.       (help @askbool-help)))
  210.      (set WrapIt
  211.        (askbool
  212.       (prompt (cat
  213.         "The KingFisher2.guide documentation that ships with "
  214.         "KingFisher Release 2 is formatted with long lines to "
  215.         "provide Kickstart 3.x users with more readable, "
  216.         "paragraph oriented documentation.\n\n"
  217.         "If you have pressing reasons to convert this file "
  218.         "to a version that will not cause trouble with Kickstart "
  219.         "2.x, then you may choose to have the Installer apply "
  220.         "the supplied 'WrapGuide' tool to the file.\n\n"
  221.         "For best performance under your installed version of "
  222.         ("AmigaDOS %ld, it is RECOMMENDED TO SKIP THIS STEP!" dosver)))
  223.       (choices "WrapGuide" "SKIP IT")
  224.       (default "SKIP IT")
  225.       (help @askbool-help)))))
  226.  
  227. (set defcats 0)
  228. (set catalogs 0)
  229. (if (exists "Locale:Catalogs/Dansk")
  230.   (set defcats (bitor defcats 1)))
  231. (if (exists "Locale:Catalogs/Deutsch")
  232.   (set defcats (bitor defcats 2)))
  233. (if (exists "Locale:Catalogs/Español")
  234.   (set defcats (bitor defcats 4)))
  235. (if (exists "Locale:Catalogs/Nederlands")
  236.   (set defcats (bitor defcats 8)))
  237. (if (exists "Locale:Catalogs/Suomi")
  238.   (set defcats (bitor defcats 16)))
  239. (if (exists "Locale:Catalogs/Svenska")
  240.   (set defcats (bitor defcats 32)))
  241.  
  242. (if (and (in opts 2) (<> defcats 0)) (
  243.   (set catalogs
  244.     (askoptions
  245.       (help @askoptions-help)
  246.       (default defcats)
  247.       (prompt (cat
  248.     "Choose any combination of the language catalogs listed below. Those "
  249.     "initially checked are your choices when you installed AmigaOS:")
  250.       (choices
  251.     "Dansk"
  252.     "Deutsch"
  253.     "Español"
  254.     "Nederlands"
  255.     "Suomi"
  256.     "Svenska"
  257.       ))))
  258.    (set CATCOUNT 0)
  259.    (if (in catalogs 0) (set CATCOUNT (+ CATCOUNT 1)))
  260.    (if (in catalogs 1) (set CATCOUNT (+ CATCOUNT 1)))
  261.    (if (in catalogs 2) (set CATCOUNT (+ CATCOUNT 1)))
  262.    (if (in catalogs 3) (set CATCOUNT (+ CATCOUNT 1)))
  263.    (if (in catalogs 4) (set CATCOUNT (+ CATCOUNT 1)))
  264.    (if (in catalogs 5) (set CATCOUNT (+ CATCOUNT 1)))))
  265.  
  266. (set MINSPC 0)
  267. (if (in opts 0) (set MINSPC (+ MINSPC 210)))
  268. (if (in opts 1) (set MINSPC (+ MINSPC 255)))
  269. (if (in opts 2) (set MINSPC (+ MINSPC (* CATCOUNT 8))))
  270. (if (in opts 3) (set MINSPC (+ MINSPC 42)))
  271. (if (in opts 4) (set MINSPC (+ MINSPC 2200)))
  272. (if (in opts 5) (set MINSPC (+ MINSPC 100)))
  273. (if (in opts 6) (set MINSPC (+ MINSPC 15)))
  274. (if (in opts 7) (set MINSPC (+ MINSPC 330)))
  275.  
  276. (set DISKFREE 0)
  277. (while (< DISKFREE MINSPC) (
  278.   (set DESTIN (tackon
  279.     (askdir
  280.       (prompt (cat
  281.     "Where do you wish to install KingFisher Release 2?\n"
  282.     "(A drawer named 'KingFisher2' will be created there.)"))
  283.       (help @askdir-help)
  284.       (default "SYS:"))
  285.     "KingFisher2"))
  286.   (set @default-dest DESTIN)
  287.   (set @execute-dir DESTIN)
  288.   (set DISKFREE (/ (getdiskspace ("%s:" (getdevice DESTIN))) 1024))
  289.   (if (< DISKFREE MINSPC)
  290.     ((if (= @user-level 0) (user 1))
  291.      (if (askbool
  292.     (prompt (cat
  293.         ("\nPlease note:\n\nThe selected volume reports only %ldK of " DISKFREE)
  294.         ("diskspace, whereas you should have at least %ldK free!\n\n" MINSPC)
  295.         "Are you sure you wish to proceed with installation to this volume?"))
  296.     (choices "Yes, proceed" "No, try another")
  297.     (default "No, try another")
  298.     (help @askbool-help))
  299.     (set DISKFREE MINSPC))))))
  300.  
  301. (user 1)
  302. (message ("KingFisher Release 2 will be installed to the directory\n\n%s" DESTIN))
  303. (user usr)
  304.  
  305. (if (not (exists DESTIN))
  306.     (makedir DESTIN (infos) (safe)))
  307.  
  308. (makeassign "KFINST")
  309. (makeassign "KFDEST")
  310. (makeassign "KF2-Inst-1")
  311. (makeassign "KF2-Inst-2")
  312.  
  313. (if (or (exists "KingFisher") (exists "KingFisher.gz"))
  314.   (makeassign "KF2-Inst-1" "" (safe)))
  315. (if (or (exists "1000Fish.index") (exists "1000Fish.index.gz"))
  316.   (makeassign "KF2-Inst-2" "" (safe)))
  317. (makeassign "KFINST" "" (safe))
  318. (makeassign "KFDEST" DESTIN (safe))
  319.  
  320. (copyfiles (source "KFINST:gunzip") (dest "ram:"))
  321. (if WrapIt (copyfiles (source "KFINST:WrapGuide") (dest "ram:")))
  322.  
  323. (complete 0)
  324.  
  325. (set total (* MINSPC 1024))
  326. (set copied 0)
  327. (set ViewInfo 1)
  328.  
  329. (set filepath "KF2-Inst-1:")
  330.  
  331. ; don't show unregistered info if keyfile present
  332. (foreach "KF2-Inst-1:" ".KingFisher.key(%|.gz)"
  333.   (set ViewInfo 0))
  334. (if (exists "KFDEST:.KingFisher.key")
  335.   (set ViewInfo 0))
  336.  
  337. (if (in opts 0) (
  338.   (set workinfo "KingFisher Database Software")
  339.   (set always 1)
  340.   (foreach "KF2-Inst-1:" "(KingFisher|KFServer)(%|.gz)"
  341.     (condcopy))
  342.   (set always 0)
  343.   (foreach "KF2-Inst-1:" "(KingFisher.info|KFServer.prefs)(%|.gz)"
  344.     (condcopy))
  345.   (foreach "KF2-Inst-1:" ".KingFisher.key(%|.gz)"
  346.     (condcopy))))
  347.  
  348. (if (in opts 1) (
  349.   (set workinfo "AmigaGuide® Online Documentation")
  350.   (set always 1)
  351.   (foreach "KF2-Inst-1:" "KingFisher2.guide(%|.gz)"
  352.     (condcopy)
  353.     (if cond-copied (
  354.       (if (or (<= dosver 38) WrapIt)
  355.         ((working "\nWord-wrapping KingFisher2.guide\nfor use with AmigaGuide V34")
  356.          (run ("stack 50000\nram:WrapGuide %s 65" "KFDEST:KingFisher2.guide")))))))
  357.   (foreach "KF2-Inst-1:" "KingFisher2.guide.info(%|.gz)"
  358.     (condcopy)
  359.     (if cond-copied (
  360.       ((if (>= dosver 39)
  361.         ((working "Adjusting KingFisher2.guide icon for MultiView")
  362.          (tooltype
  363.            (dest "KFDEST:KingFisher2.guide")
  364.            (setdefaulttool "MultiView"))))))))
  365.   (foreach "KF2-Inst-1:" "History(%|.gz)"
  366.     (condcopy))
  367.   (foreach "KF2-Inst-1:" "#?IFF(%|.gz)"
  368.     (condcopy))))
  369.  
  370. (if (in opts 2) (
  371.   (working ("\nInstalling KingFisher Release 2\n\nLanguage Catalogs"))
  372.   (if (not (exists "KFDEST:Catalogs"))
  373.       (makedir "KFDEST:Catalogs" (safe)))
  374.   (if (in catalogs 0)    ((set language "Dansk")        (install-language)))
  375.   (if (in catalogs 1)    ((set language "Deutsch")    (install-language)))
  376.   (if (in catalogs 2)    ((set language "Español")    (install-language)))
  377.   (if (in catalogs 3)    ((set language "Nederlands")    (install-language)))
  378.   (if (in catalogs 4)    ((set language "Suomi")        (install-language)))
  379.   (if (in catalogs 5)    ((set language "Svenska")    (install-language)))))
  380.  
  381. (if (in opts 3) (
  382.   (set workinfo "RexxFisher and Examples")
  383.   (set always 1)
  384.   (foreach "KF2-Inst-1:" "RexxFisher(%|.gz)"
  385.     (condcopy))
  386.   (set always 0)
  387.   (foreach "KF2-Inst-1:" "#?.kfrx(%|.gz)"
  388.     (condcopy))))
  389.  
  390. (if (in opts 5) (
  391.   (set workinfo "Miscellaneous Example Files")
  392.   (set always 0)
  393.   (foreach "KF2-Inst-1:" "Example#?.format(%|.gz)"
  394.     (condcopy))
  395.   (foreach "KF2-Inst-1:" "#?.search(%|.gz)"
  396.     (condcopy))
  397.   (foreach "KF2-Inst-1:" "(%|.)Product-Info(%|.gz)"
  398.     (condcopy))))
  399.  
  400. (if (in opts 6) (
  401.   (set workinfo "Demonstration Button Images")
  402.   (set always 0)
  403.   (foreach "KF2-Inst-1:" "gad.#?.image(%|.gz)"
  404.     (condcopy))))
  405.  
  406. (if (in opts 7) (
  407.   (set workinfo "KingFisher Developer Kit")
  408.   (copyfiles (source "KF2-Inst-1:Developer") (dest "KFDEST:Developer") (all))
  409.   (run ("stack 50000\nram:gunzip >NIL: <NIL: -rf Developer"))))
  410.  
  411. (if (in opts 4) (
  412.   (set workinfo "1000 Fish Database")
  413.   (set always 0)
  414.   (foreach "KF2-Inst-1:" "1000Fish.kfdb(%|.gz)"
  415.     (condcopy))
  416.   (set filepath "KF2-Inst-2:")
  417.   (askdisk
  418.     (prompt "\nPlease insert the disk labeled\n\n\"KingFisher Disk 2\"")
  419.     (dest "KF2-Inst-2")
  420.     (help (cat
  421.     "The requested disk contains the '1000 Fish Database' which is installed "
  422.     "as the default database. KingFisher may not function as desired if you "
  423.     "do not install this database.\n\nIf you do not want this database you "
  424.     "may terminate the Installation process. Bewarned that some cleanup "
  425.     "procedures will be omitted in that case, but this is nothing serious."))
  426.     (assigns))
  427.   (working "\nContinuing installation...")
  428.   (viewreadme)
  429.   (foreach "KF2-Inst-2:" "1000Fish#?.(data|index)(%|.gz)"
  430.     (condcopy))))
  431.  
  432. (viewreadme)
  433.  
  434. (complete 100)
  435.  
  436. (delete "ram:gunzip")
  437. (delete "ram:WrapGuide")
  438.  
  439. (makeassign "KFDEST")
  440. (makeassign "KFINST")
  441. (makeassign "KF2-Inst-1")
  442. (makeassign "KF2-Inst-2")
  443.  
  444. (exit)
  445.